home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / a / amiga_vision_professional / amigavisionprofessiv2.04d.dms / in.adf / AVFileReq.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-12-01  |  1.0 KB  |  64 lines
  1. /*    Volumes    */
  2.  
  3.     n = addlib('rexxsupport.library',0,-30,0)
  4.  
  5.     address AV.REXX     /* Send commands to the AppGen ARexx port. */
  6.  
  7.  
  8.     cur_file = 'ram:fr1.av'
  9.  
  10.     if ~ open( 'AVFILES', cur_file, 'w' ) then
  11.     DO
  12.         cur_file = 'ram:fr2.av'
  13.         if ~ open( 'AVFILES', cur_file, 'w' ) then
  14.             exit
  15.     END
  16.  
  17.     str = '0a'x||'    Specify Directory'
  18.  
  19.     n = writeln( 'AVFILES', str )
  20.     n = close( 'AVFILES' )
  21.  
  22.     SETVAR FileList cur_file
  23.  
  24.     cur_file = 'ram:fr3.av'
  25.  
  26.     if ~ open( 'AVFILES', cur_file, 'w' ) then
  27.     DO
  28.         cur_file = 'ram:fr4.av'
  29.         if ~ open( 'AVFILES', cur_file, 'w' ) then
  30.             exit
  31.     END
  32.  
  33.  
  34.     s2 = ""
  35.     s1 = ""
  36.     vols = showlist( 'V',, '0a'x )
  37.     DO WHILE vols ~= ""
  38.         parse var vols s1 '0a'x vols
  39.         s2 = s2||s1':'
  40.         if ( vols ~= "" ) THEN
  41.             s2 = s2"0a"x
  42.     END
  43.  
  44.     n = writeln( 'AVFILES', s2 )
  45.  
  46.     assigns = showlist( 'A',, '0a'x )
  47.  
  48.     if ( assigns ~= "" ) THEN
  49.     DO
  50.         s2 = "|H"
  51.         s1 = ""
  52.         DO WHILE assigns ~= ""
  53.             parse var assigns s1 '0a'x assigns
  54.             s2 = s2||s1':'"0a"x
  55.         END
  56.         n = writeln( 'AVFILES', s2 )
  57.     END
  58.  
  59.     n = close( 'AVFILES' )
  60.  
  61.     SETVAR    VolumeList cur_file
  62.  
  63.     EXIT
  64.